TO BLKDIA S
	REPEAT 2 [FD S RT 60 FD S RT 120]
	RIGHTFILL "BLUE
END

TO TREE L1 B1 B2
	SSQ L1 B1 FD L1 RT 90 FD 0.5 * L1 LT 135
	LTRI L1 B2 RT 45 FD 2 * SQRT (2 * L1 * L1) RT 135
	LTRI L1 B2 LT 180
	MTRI L1 B2 RT 45 FD 2 * L1 RT 135
	MTRI L1 B2 LT 180
	STRI L1 B2 RT 45 FD SQRT (2 * L1 * L1) RT 135
	STRI L1 B2
	RT 45 PU FD 5 * SQRT (2 * L1 * L1) FD 6.5
	LT 90 FD 50 LT 90 PD
END

TO STEP S C12
	FD S RT 90 FD S LT 90 FD S RT 90 FD S LT 90
	FD S RT 90 FD S RT 90 FD S * 2 RT 90 FD S LT 90
	FD S RT 90 FD S * 2 RT 90
	RIGHTFILL C12
END

TO SWAN L1 B1 B2 B3 B4 B5
	RT 45 MTRI L1 B2 FD SQRT (2 * L1 * L1) RT 45
	PAUSE STRI L1 B1 RT 45 FD SQRT (2 * L1 * L1) RT 135
	FD L1 RT 180 PAUSE PAR L1 B5 FD L1 RT 135
	FD SQRT (2 * L1 * L1) LT 45 PAUSE SSQ L1 B4
	FD L1 RT 90 FD L1 RT 180 PAUSE STRI L1 B1 FD L1
	RT 90 FD L1 LT 90 PAUSE FD 2 * L1 RT 180
	LTRI L1 B3 RT 135 PAUSE FD 2 * L1 RT 180
	LTRI L1 B3
END

TO LITTLE L1 B1 B2
	RT 45 STRI L1 B1 LT 45 PAUSE
	FD SQRT (2 * L1 * L1) RT 135
	STRI L1 B1 LT 45 PAUSE MTRI L1 B2
END

TO BLKHEX S
	REPEAT 6 [FD S RT 60]
	RIGHTFILL "YELLOW
END

TO STRI L1 B1
	FD L1 RT 90 FD L1 RT 135 FD SQRT (2 * L1 * L1)
	RT 135
	RIGHTFILL B1
END

TO B
	[FD10]
END

TO BLKTRI S
	REPEAT 3 [FD S RT 120]
	RIGHTFILL "GREEN
END

TO BLKTRP S
	REPEAT 2 [FD S RT 60] FD S RT 120 FD 2 * S
	RT 120
	RIGHTFILL "RED
END

TO START
	RT 180 PU FD 250 RT 90 FD 600 RT 90 PD
END

TO KIT L1 B1
	RT 45 FD 2 * SQRT (2 * L1 * L1) RT 135
	LTRI L1 B1 RT 135 FD 2 * L1 RT 180
	LTRI L1 B1 RT 45 FD SQRT (2 * L1 * L1) RT 135
	STRI L1 B1 FD L1 SSQ L1 B1 FD L1
	RT 45 FD SQRT (2 * L1 * L1) RT 135
	STRI L1 B1 FD 2 * L1 RT 180
	STRI L1 B1 LT 135 PU FD 35 LT 90
	FD 100 LT 90 PD
END

TO PAR L1 B5
	FD L1 RT 135 FD SQRT (2 * L1 * L1) RT 45 FD L1
	RT 135 FD SQRT (2 * L1 * L1) RT 45
	RIGHTFILL B5
END

TO CHAIR S C1
	FD 3 * S RT 90 FD S RT 90 FD S LT 90 FD S RT 90
	FD 2 * S RT 90 FD 2 * S RT 90
	RIGHTFILL C1
END

TO TEE S C10
	FD S * 2 LT 90 FD S RT 90 FD S RT 90 FD S * 3 RT 90
	FD S RT 90 FD S LT 90 FD S * 2 RT 90 FD S RT 90
	RIGHTFILL C10
END

TO ZAG S C8
	FD S RT 90 FD S LT 90 FD S * 2 RT 90 FD S * 2 RT 90
	FD S RT 90 FD S LT 90 FD S * 2 RT 90 FD S * 2 RT 90
	RIGHTFILL C8
END

TO BIGSQ L1 B1 B2 B3 B4 B5
	FD 2 * SQRT (2 * L1 * L1) RT 135 LTRI L1 B3
	LT 45 PAUSE FD 2 * SQRT (2 * L1 * L1) RT 135 LTRI L1 B3
	LT 45 PAUSE FD SQRT (2 * L1 * L1)
	RT 45 PAR L1 B5 LT 45 PAUSE MTRI L1 B2
	RT 45 PAUSE FD L1 RT 90 STRI L1 B1 LT 90
	PAUSE SSQ L1 B4 PAUSE FD L1
	RT 45 FD SQRT (2 * L1 * L1) RT 135 STRI L1 B1
END

TO ZIG S C11
	FD S * 2 RT 90 FD S LT 90 FD S * 2 RT 90 FD S RT 90
	FD S * 3 RT 90 FD S LT 90 FD S RT 90 FD S RT 90
	RIGHTFILL C11
END

TO SSQ L1 B4
	REPEAT 4 [FD L1 RT 90]
	RIGHTFILL B4
END

TO SUN L1
	PD LT 45
	LTRI L1 "YELLOW PU HOME
END

TO CORNER S C4
	FD 3 * S RT 90 FD S RT 90 FD 2 * S LT 90 FD 2 * S
	RT 90 FD S RT 90 FD 3 * S RT 90
	RIGHTFILL C4
END

TO BLKRH S
	REPEAT 2 [FD S RT 30 FD S RT 150]
	RIGHTFILL "GRAY
END

TO L2 L1
	SQRT (2 * L1 * L1)
END

TO BLKSQ S
	REPEAT 4 [FD S RT 90]
	RIGHTFILL "ORANGE
END

TO P1 S C1 C2 C3
	CHAIR S C1 RT 90 FD 2 * S LT 90 PAUSE LUMP S C2
	PU RT 90 FD S LT 90 FD 3 * S RT 90 PD
	PAUSE TABLE S C3
END

TO P2 S C4 C1 C3
	PU FD 4 * 3 RT 90 PD CORNER S C4 PU FD S
	RT 90 FD S LT 90 PD PAUSE CHAIR S C1 FD 2 * S LT 90
	FD S RT 90 PAUSE TABLE S C3
END

TO EL S C7
	FD S * 4 RT 90 FD S RT 90 FD 3 * S LT 90 FD S RT 90
	FD S RT 90 FD 2 * S RT 90
	RIGHTFILL C7
END

TO BARN L1 B1 B2
	PU RT 90 FD 30 LT 90 FD 30 PD
	MTRI L1 B1 FD SQRT (2 * L1 * L1) RT 45
	STRI L1 B2 RT 45 FD SQRT (2 * L1 * L1)
	RT 135 FD SQRT (2 * L1 * L1) RT 180 FD 2 * L1
	RT 135 LTRI L1 B1 FD L1 LT 90 FD 2 * L1
	LT 180 LTRI L1 B2 LT 90 SSQ L1 B1
	RT 90 FD L1 RT 90 PU FD L1 PD LT 45
	FD 57 RT 45 PAR L1 B2 FD L1 RT 90
	STRI L1 B2 RT 90 PU FD 367 LT 180 PD
END

TO CLAY L1 B1
	RT 45 LTRI L1 B1 RT 45 FD 2 * SQRT (2 * L1 * L1)
	LT 135 PAR L1 B1 FD 2 * L1
	LT 90 MTRI L1 B1 FD SQRT (2 * L1 * L1) RT 45
	FD 2 * SQRT (2 * L1 * L1)
	RT 135 LTRI L1 B1 FD L1 LT 90 SSQ L1 B1
	FD L1 RT 45 FD SQRT (2 * L1 * L1) RT 135
	STRI L1 B1
	FD 2 * L1 RT 180 STRI L1 B1
	LT 135 PU FD 20 LT 90 FD 200 LT 90 PD
END

TO FARM
	START TREE 35 "BROWN 2 BUNNY 15 "GRAY
	TREE 35 "BROWN 2 BARN 107 "RED 0
	CLAY 10 "ORANGE TREE 35 "BROWN 2 KIT 10 "YELLOW
	HORSE 30 4 3 "GOLD "BROWN SCENE SUN 70
END

TO CROSS S C5
	REPEAT 2 [FD S LT 90 FD S RT 90 FD S RT 90 FD S LT 90 FD S RT 90 FD S RT 90]
	RIGHTFILL C5
END

TO BUNNY L1 B1
	RT 45 LTRI L1 B1 FD 2 * L1 RT 45
	FD 2 * SQRT (2 * L1 * L1) RT 135 LTRI L1 B1 FD 2 * L1
	LT 180 MTRI L1 B1 FD SQRT (2 * L1 * L1)
	SSQ L1 B1 FD L1 LT 135 FD SQRT (2 * L1 * L1)
	RT 135 STRI L1 B1 FD L1 LT 180 STRI L1 B1
	RT 135 PAR L1 B1
	RT 180 PU FD 37 LT 90 FD 50 LT 90 PD
END

TO RIGHTFILL C
	PU RT 10 FD 5 PD SETPC C FILL PU BK 5 LT 10 PD
	SETPC 0
END

TO REACH S C9
	FD S * 4 RT 90 FD S RT 90 FD S LT 90 FD S
	RT 90 FD S RT 90 FD S LT 90 FD S * 2
	RT 90 FD S RT 90
	RIGHTFILL C9
END

TO HORSE L1 B1 B2 B3 B4
	LTRI L1 B1 FD 2 * L1 LT 90 FD L1 RT 180 PAR L1 B1
	FD 3 * L1 LTRI L1 B1 FD L1 RT 180 MTRI L1 B2
	RT 45 FD 2 * L1 RT 58 SSQ L1 B3 FD L1 LT 90
	FD 0.5 * L1 RT 135 MTRI L1 B4 RT 45 FD 0.5 * L1
	RT 90 FD L1 LT 13 FD SQRT (2 * L1 * L1) LT 90
	FD SQRT (2 * L1 * L1) FD 0.75 * L1 LT 45 MTRI L1 B1
	PU RT 45 RT 90 FD 2 * L1 LT 90 FD 100
END

TO TABLE S C3
	FD 2 * S RT 90 FD 3 * S RT 90 FD 2 * S RT 90
	FD S RT 90 FD S LT 90 FD S LT 90 FD S
	RT 90 FD S RT 90
	RIGHTFILL C3
END

TO LONG S C6
	REPEAT 2 [FD 5 * S RT 90 FD S RT 90]
	RIGHTFILL C6
END

TO SCENE
	FD 125 LT 90 PD FD 570 BK 35 RT 90 FD 1273
	LT 90 FD 570 RT 90 FD 1270 RT 90 FD 570
	BK 470 RT 90 FD 1300 PU LT 10 FD 5
	SETPC "GREEN PD FILL PU BK 5 RT 20 FD 5
	SETPC 11 PD FILL PU SETPC 0 BK 5 LT 10 FD 250
	RT 180
END

TO LTRI L1 B3
	FD 2 * L1 RT 90 FD 2 * L1 RT 135 FD 2 * SQRT (2 * L1 * L1)
	RT 135
	RIGHTFILL B3
END

TO LUMP S C2
	FD 2 * S LT 90 FD S RT 90 FD S RT 90 FD 2 * S
	RT 90 FD S LT 90 FD S RT 90 FD S RT 90 FD S
	LT 90 FD S RT 90 FD S RT 90
	RIGHTFILL C2
END

TO MTRI L1 B2
	FD SQRT (2 * L1 * L1) RT 90 FD SQRT (2 * L1 * L1) RT 135
	FD 2 * L1 RT 135
	RIGHTFILL B2
END

TO TKIT L1 B1
	RT 45 FD 2 * SQRT (2 * L1 * L1) RT 135
	LTRI L1 B1 RT 135 FD 2 * L1 RT 180
	LTRI L1 B1 RT 45 FD SQRT (2 * L1 * L1) RT 135
	STRI L1 B1 FD L1 SSQ L1 B1 FD 10 PAUSE
	RT 45 PAUSE FD SQRT (2 * L1 * L1) PAUSE RT 135 PAUSE
	STRI L1 B1 PAUSE
	FD L1 PAUSE RT 90 PAUSE FD L1 PAUSE RT 180 PAUSE
	STRI L1 B1
END

